Classifed Tweets Display

Column

Lockdown vs Economy

Deontological %

Tweets/Statements

Date Person State Text Source
2020-03-11 00:00:00 President Donald Trump District of Columbia “Each of us has a role to play in defeating this virus” “I will never hesitate to take any necessary steps to protect the lives, health, and safety of the American people” Official statements
2020-03-12 22:47:00 Asa Hutchinson Arkansas (2/4) The cases affect Pulaski, Saline, Jefferson & Grant counties. In an abundance of caution & after consulting & @ArkansasEd, I’m advising schools in those counties to close for the next two weeks. School closing advisories will be determined on a case-by-case basis. Social Media
2020-03-15 01:34:52 Asa Hutchinson Arkansas Thanks to all who have expressed concern about students in school. My public health professionals are following the guidance of the US Center for Disease Control. Wellbeing of students is always #1. Social Media
2020-03-22 00:19:43 Asa Hutchinson Arkansas (2/3) This outbreak endangers lives & strains our economy. Our goal is to flatten the peak & reduce the spread. We need the people’s help. If we do what we are supposed to do in terms of social distancing & in taking care of ourselves & others, then we’ll reduce the trend line. Social Media
2020-03-31 21:24:10 Asa Hutchinson Arkansas (3/3) This gives Arkansans an objective: to do our part by being self-disciplined, following @ADHPIO guidelines, limiting our social gatherings, and maintaining social distancing to beat projections. This will save lives and help us overcome this crisis more quickly. Social Media
2020-04-03 00:17:25 Asa Hutchinson Arkansas @hogdawg44 Thanks for your question, Harvey. It’s up to individual businesses and plants to put responsible workplace screening measures into place. Employees should be encouraged to stay home when sick & to practice healthy habits both in & out of the workplace. #AskGovHutchinson Social Media
2020-04-06 22:47:51 Asa Hutchinson Arkansas I have extended the closure of public schools through the remainder of the 2019-20 school year. Schools will continue to provide alternative methods of instruction (AMI). This is necessary for our students to be safe but let’s keep learning every day. https://t.co/3ViK85woAr Social Media
2020-04-09 00:12:17 Asa Hutchinson Arkansas “Let me assure every Arkansan that we will do all that is necessary to protect life and to come out of this pandemic with our face looking into the bright days of our future.” See photos, video, & a transcript of today’s State of the State Address: https://t.co/ZNfBIZmP0k #arpx Social Media
2020-04-14 20:49:48 Asa Hutchinson Arkansas As you can see in the attached graphs, Arkansas is flattening the curve, and our testing is increasing in capacity and performance. This is good news, but remember to keep social distancing, wearing masks, & washing hands to keep each other safe. https://t.co/ZgwKgKPA0H Social Media
2020-04-14 21:56:17 Asa Hutchinson Arkansas Travel on our interstate highways has decreased by 55% from 1yr ago because of our efforts to temporarily discourage out-of-state travelers from visiting. Now, @myARDOT also uses message boards to alert travelers that recreational lodging for out-of-state visitors is prohibited. https://t.co/vPYAemGD70 Social Media
2020-06-10 22:09:37 Asa Hutchinson Arkansas Throughout this pandemic, Arkansans have determined what is best for their health, and I am confident they will continue to do so as we enter in to Phase Two. (2/2) Social Media
2020-05-01 19:19:30 Gavin Newsom California California waived the 1 week waiting period for Unemployment Insurance (UI) and State Disability Insurance (SDI) so workers can get the support they need quickly. Social Media
2020-05-04 17:30:19 Gavin Newsom California Governor @GavinNewsom spoke with @KatieCouric for @TIME about CA’s Roadmap to Pandemic Resilience, which lays out how the state plans to modify its stay-at-home order based on science, health & data. #StayHomeSaveLives https://t.co/OCD3RP6IYE Social Media
2020-05-04 22:17:59 Gavin Newsom California Governor @GavinNewsom announced that based on the state’s progress in meeting metrics tied to indicators, the state can begin to move into Stage 2 of modifying the stay at home order this Friday, May 8, with guidelines released Thursday, May 7. https://t.co/Lvsglrxdsp Social Media
2020-05-05 20:30:00 Gavin Newsom California

Last week, Governor @GavinNewsom met with small businesses, employers & workers, like Marielle, to discuss #COVID19’s impact on the economy.

CA will continue to prioritize public health & the safety of its workforce when it comes to modifying its stay-at-home order. https://t.co/BBIdKaPiQ3
Social Media
2020-05-07 19:29:56 Gavin Newsom California CA will begin moving into stage 2 of modifying the stay-at-home order starting tomorrow. This isn’t a return to normal. Retail, with curbside pickup, and associated supply chains can reopen with modifications that follow NEW state guidance. Social Media
2020-05-08 02:30:01 Gavin Newsom California Californians, working together, have flattened the curve. Because of that work, health data shows the state can begin modifying the stay-at-home order & gradually begin to restart portions of the economy. Social Media
2020-05-08 19:28:47 Gavin Newsom California We must continue to protect Californians from #COVID19. NEW: Under Governor Gavin Newsom’s new executive order, every registered voter in California will now receive a mail-in ballot. #YourActionsSaveLives Social Media
2020-05-08 20:42:21 Gavin Newsom California “Elections and the right to vote are foundational to our democracy. No Californian should be forced to risk their health in order to exercise their right to vote.” - Governor @GavinNewsom https://t.co/vlCgoKuZLe Social Media
2020-05-10 17:00:30 Gavin Newsom California Just because CA is modifying the stay-at-home order, does not mean things are going back to normal. <U+0001F6A8> Californians must continue to practice physical distancing &amp; avoid congregating with others to stop the spread of #COVID19. #YourActionsSaveLives Social Media
2020-05-16 15:00:00 Gavin Newsom California <U+2705> Weekend Checklist <U+2705> <U+0001F3E0>Gather only with people in your household <U+0001F637>Stay home if you are sick <U+0001F3C3><U+200D><U+2640><U+FE0F>If you are participating in local recreation, keep 6 feet of distance #YourActionsSaveLives Social Media
2020-05-18 19:19:07 Gavin Newsom California Governor @GavinNewsom announced new criteria counties must meet to move ahead including: <U+0001F3E5>Hospitalization rates that don’t increase more than 5% over 7 days <U+0001F4C9>Less than 25 #COVID19 cases per 100k residents over the last 14 days. Learn more: https://t.co/zE4jpFXT1Z https://t.co/9kPpiLcojb Social Media
2020-05-21 22:30:07 Gavin Newsom California Even though California is beginning to move into stage 2 of reopening, the Stay-at-Home order is still in place. This Memorial Day weekend, stay close to home and avoid gathering with people outside of your household to stop the spread of #COVID19. #YourActionsSaveLives https://t.co/GbF1cFsYT0 Social Media
2020-05-22 21:30:00 Gavin Newsom California Our decisions will determine our fate and future. As you move into this beautiful weekend, please stay close to home and, if you do go out, do so responsibly &amp; safely to prevent the spread of #COVID19. #YourActionsSaveLives https://t.co/1b8Fvqk2Oe Social Media
2020-05-24 15:30:00 Gavin Newsom California Kids know the rules. This weekend is not the time to have people over to your home, even for small gatherings like a backyard BBQ. #YourActionsSaveLives https://t.co/CSgFLaW82n Social Media
2020-05-25 20:01:01 Gavin Newsom California .@CAPublicHealth announced the statewide reopening of places of worship for religious services and in-store retail shopping. Modifications are required to keep Californians safe and limit the spread of #COVID19. #YourActionsSaveLives Learn more: https://t.co/48ZAhw2Iwl Social Media
2020-05-25 20:30:00 Gavin Newsom California We know that fatigue is setting in, but let’s stay strong. #COVID19 is still spreading. Physical distancing outdoors is one step we can take to protect our communities. #YourActionsSaveLives https://t.co/r9dDk4ecdU Social Media
2020-06-15 19:22:34 Gavin Newsom California Test positivity rates in California have decreased but that DOES NOT mean #COVID19 has stopped spreading! We must continue to practice physical distancing, wash our hands, wear a face covering &amp; stay home when possible. It’s up to us to slow the spread. #YourActionsSaveLives https://t.co/W9Vm7kBe2n Social Media
2020-06-21 22:00:12 Gavin Newsom California Yes - you have to wear a mask even if the store you are going to is really small and only 1 person works there and no one else is there. #YourActionsSaveLives https://t.co/XvLt35FuoB Social Media
2020-03-17 17:15:30 Doug Burgum North Dakota #SocialDistancing: Look below to see what this means for you. This is especially important on St. Patrick’s Day, when you might be accustomed to going out to celebrate with friends. We all have a role to play in slowing the spread of coronavirus. https://t.co/k4LsKbZMP4 Social Media
2020-03-12 22:28:32 Doug Ducey Arizona There is no greater priority than the health and safety of our kids. My thanks to @Supt_Hoffman for her partnership and her work with @DrCaraChrist and public health officials to keep #AZ students, educators and staff safe and healthy. @azedschools https://t.co/kd5YFSjhZH Social Media
2020-03-16 19:55:18 Doug Ducey Arizona There’s no greater priority than the health and safety of Arizonans. I’m working with @AZDHS and @DrCaraChrist to review the updated guidance from @CDCgov to ensure that #AZ complies and provides guidance to all Arizonans. https://t.co/x40M56wJQn Social Media
2020-04-01 12:04:14 Doug Ducey Arizona Let me make my expectations clear: No family, individual or small business should face eviction or lose critical services because of hardships caused by #COVID19. It’s basic decency. 4/ Social Media

Medical Care

Deontological %

Tweets/Statements

Date Person State Text Source
2020-03-08 02:29:55 Gavin Newsom California California is ordering state-regulated health insurance companies to waive the out-of-pocket costs for Coronavirus testing. https://t.co/u9Q7kW4OyG Social Media

Contact Tracing

Deontological %

Tweets/Statements

Date Person State Text Source
2020-04-21 21:58:04 Doug Burgum North Dakota Care19 is now available for Android! This contact tracing app developed for COVID-19 is completely voluntary and developed with a privacy-first mindset. Over 20,000 users have already downloaded Care19, which has also been updated today. Download it now! https://t.co/JlGCmdKsqD https://t.co/1xr8FEHxRW Social Media

Vaccine Enforcement

Deontological %

Tweets/Statements

Date Person State Text Source

PPE

Deontological %

Tweets/Statements

Date Person State Text Source
2020-03-22 21:32:10 Asa Hutchinson Arkansas (3/4) We are looking at purchasing from the internatl. market, manufacturing our own, &amp; working w/FEMA to release more of the strategic natl. stockpile to AR. While we’re working very hard on this procurement, Arkansans need to understand the current challenge that we face. Social Media
2020-03-24 23:06:32 Asa Hutchinson Arkansas We have received 24 pallets of personal protective equipment (PPE)—including 27,800 N95 masks—from the Natl. Strategic Stockpile. Combined w/an order we’ll receive this weekend, this will cover us for the next 60 days at the current usage rate. We will continue to buy PPE. Social Media
2020-04-02 22:28:17 Asa Hutchinson Arkansas @amsam412 Each state does receive a supply of PPE from the federal stockpile, but it’s not enough to meet Arkansas’s needs. That’s why I authorized $75 million for Arkansas to purchase PPE for our hospitals and health care workers. #AskGovHutchinson Social Media
2020-05-12 01:40:11 Gavin Newsom California To safely return to work, people need access to protective gear!<U+0001F637><U+0001F9E4> Last week, @Cal_OES delivered more than 11 million surgical masks to schools &amp; educators, farm workers, social workers, grocery workers &amp; transit workers. As #COVID19 continues, Californians will be protected. https://t.co/b0JJMoAquq Social Media

Other

Deontological %

Tweets/Statements

Date Person State Text Source
2020-03-22 00:19:43 Asa Hutchinson Arkansas (2/3) This outbreak endangers lives &amp; strains our economy. Our goal is to flatten the peak &amp; reduce the spread. We need the people’s help. If we do what we are supposed to do in terms of social distancing &amp; in taking care of ourselves &amp; others, then we’ll reduce the trend line. Social Media
2020-03-27 21:58:05 Asa Hutchinson Arkansas (3/3) In order to do that, I have to enlist the support of every Arkansan to not gather in social groups of more than 10, to practice social distancing, and to follow the directives of @ADHPIO. We need everyone’s assistance. Social Media
2020-04-14 20:49:48 Asa Hutchinson Arkansas As you can see in the attached graphs, Arkansas is flattening the curve, and our testing is increasing in capacity and performance. This is good news, but remember to keep social distancing, wearing masks, &amp; washing hands to keep each other safe. https://t.co/ZgwKgKPA0H Social Media
2020-05-08 19:28:47 Gavin Newsom California We must continue to protect Californians from #COVID19. NEW: Under Governor Gavin Newsom’s new executive order, every registered voter in California will now receive a mail-in ballot. #YourActionsSaveLives Social Media
2020-05-16 15:00:00 Gavin Newsom California <U+2705> Weekend Checklist <U+2705> <U+0001F3E0>Gather only with people in your household <U+0001F637>Stay home if you are sick <U+0001F3C3><U+200D><U+2640><U+FE0F>If you are participating in local recreation, keep 6 feet of distance #YourActionsSaveLives Social Media
2020-05-21 22:30:07 Gavin Newsom California Even though California is beginning to move into stage 2 of reopening, the Stay-at-Home order is still in place. This Memorial Day weekend, stay close to home and avoid gathering with people outside of your household to stop the spread of #COVID19. #YourActionsSaveLives https://t.co/GbF1cFsYT0 Social Media
2020-05-22 21:30:00 Gavin Newsom California Our decisions will determine our fate and future. As you move into this beautiful weekend, please stay close to home and, if you do go out, do so responsibly &amp; safely to prevent the spread of #COVID19. #YourActionsSaveLives https://t.co/1b8Fvqk2Oe Social Media
2020-05-25 20:30:00 Gavin Newsom California We know that fatigue is setting in, but let’s stay strong. #COVID19 is still spreading. Physical distancing outdoors is one step we can take to protect our communities. #YourActionsSaveLives https://t.co/r9dDk4ecdU Social Media
2020-06-21 22:00:12 Gavin Newsom California Yes - you have to wear a mask even if the store you are going to is really small and only 1 person works there and no one else is there. #YourActionsSaveLives https://t.co/XvLt35FuoB Social Media
2020-03-17 17:15:30 Doug Burgum North Dakota #SocialDistancing: Look below to see what this means for you. This is especially important on St. Patrick’s Day, when you might be accustomed to going out to celebrate with friends. We all have a role to play in slowing the spread of coronavirus. https://t.co/k4LsKbZMP4 Social Media
2020-04-01 12:04:14 Doug Ducey Arizona Let me make my expectations clear: No family, individual or small business should face eviction or lose critical services because of hardships caused by #COVID19. It’s basic decency. 4/ Social Media

Column

Lockdown vs Economy

Consequentialist %

Tweets/Statements

Date Person State Text Source
2020-03-09 00:00:00 Governor Asa Hutchinson Arkansas (5/5) We take this COVID-19 outbreak seriously &amp; are taking precautions. But I’m keeping my normal schedule &amp; we should continue to do business; go to school &amp; enjoy a beautiful spring. Social Media
2020-03-12 00:00:00 Governor Asa Hutchinson Arkansas (2/2) For months, AR has been preparing to respond to COVID-19. We’re taking measures to mitigate the spread of the virus. Practice healthy habits, wash your hands frequently, &amp; stay home if you’re not feeling well. Beyond that, continue to conduct business &amp; normal activities. Social Media
2020-03-15 21:57:48 Asa Hutchinson Arkansas (3/3) As a result of these concerns, I have ordered the closure of on-site instruction of AR public schools, effective Tuesday, March 17 through the end of spring break. At that time, we will return to normal classroom instruction, unless the circumstances dictate otherwise. Social Media
2020-03-16 17:53:11 Asa Hutchinson Arkansas (3/3) I discourage unnecessary out-of-state travel during this time of mitigation. This is to slow the spread of COVID-19 for when students and educators return to school after spring break, if circumstances allow. Social Media
2020-03-16 17:53:11 Asa Hutchinson Arkansas (2/3) We received new CDC guidelines that there should be no indoor events greater than 50 people. I emphasize that this is an event-restriction recommendation. Restaurants and other businesses will continue to operate. Social Media
2020-03-20 21:27:36 Asa Hutchinson Arkansas Doing my part to encourage social distancing within the community while supporting our local businesses in AR. Thanks to @TazikisCantrell for this wonderful carry-out lunch! https://t.co/wDJOqMNgC8 Social Media
2020-03-21 00:10:00 Asa Hutchinson Arkansas According to the CDC, the best way to prevent the spread of COVID-19 is to avoid being exposed to the virus. COVID-19 is thought to spread between people within 6 feet of each other. By practicing social distancing, we can help mitigate the outbreak in our state. Social Media
2020-03-21 14:45:00 Asa Hutchinson Arkansas Protecting Arkansas’s workforce and businesses from the COVID-19 outbreak is a top priority. Arkansas businesses can follow these guidelines to ensure the safety of their employees and the continuation of their operations. https://t.co/bmIUdr9f8V Social Media
2020-03-21 20:02:36 Asa Hutchinson Arkansas Social distancing does not have to mean staying in the home, although this is an effective way to mitigate the spread of COVID-19. Walking, hiking, fishing, and other outdoor activities are all consistent with social distancing practices. Social Media
2020-03-22 00:19:43 Asa Hutchinson Arkansas (3/3) And we will not have to take the extreme measures that we see in other states. We will not stop all business &amp; we will get back to normal more quickly. Social Media
2020-03-22 20:00:00 Asa Hutchinson Arkansas As COVID-19 spreads, it is important for Arkansans to follow the CDC’s guidelines to keep themselves and their families safe. I encourage the people of our state to practice the CDC’s current recommendation to avoid social gatherings of 10+ to help mitigate the virus. Social Media
2020-04-02 22:13:27 Asa Hutchinson Arkansas @luvmyhub I don’t plan to give a shelter-in-place order right now. Currently, AR is ˜400 cases below projections, thanks to Arkansans efforts to mitigate spread &amp; because of our targeted approach to closures. I’ll continue to follow guidance from health experts &amp; reevaluate as needed. Social Media
2020-04-02 22:15:03 Asa Hutchinson Arkansas @dbishop4152 I’ll continue to follow guidance from health experts &amp; reevaluate shelter-in-place options as needed. Currently, AR is well below projected cases, thanks to Arkansans efforts to mitigate spread &amp; because of our targeted approach to closures. #AskGovHutchinson Social Media
2020-04-03 00:21:36 Asa Hutchinson Arkansas @KaribethDavis We hope to return to business as usual as soon as possible, but we will continue to evaluate the situation and follow the guidance from health experts at the state and federal level. #AskGovHutchinson Social Media
2020-04-17 21:22:50 Asa Hutchinson Arkansas (1/2) I have carefully reviewed @realDonaldTrump’s model for reopening the economy &amp; the first report of the Governor’s Medical Advisory Committee for Post-Peak COVID-19 Response. Based on Arkansas’s current public health data, we hope to begin lifting some restrictions by May 4. Social Media
2020-04-21 22:35:00 Asa Hutchinson Arkansas Today I announced the creation of the COVID-19 Testing Working Group to ensure Arkansas has adequate tests and processes in place as we pursue our public-health and economic recovery strategies. I joined the working group’s first meeting this afternoon. https://t.co/aETnUswqbP Social Media
2020-04-28 22:30:35 Asa Hutchinson Arkansas .@ARStatePark will begin a limited reopening of some facilities for Arkansas residents starting May 1. I am pleased that we can give Arkansans the opportunity to get out of their homes to safely enjoy our natural resources again. https://t.co/zTSfmDvkfg Social Media
2020-04-29 22:37:39 Asa Hutchinson Arkansas Restaurants in AR may resume limited (33%) dine-in services on May 11 under guidelines that require daily health screening of staff, use of masks &amp; gloves, and strict social distancing. This is a significant but cautious step on the path back to normalcy. https://t.co/pEUlm3sLSu https://t.co/SfupCWl0UT Social Media
2020-05-01 22:03:36 Asa Hutchinson Arkansas (2/2) We’ve all felt the absence of these services recently, &amp; professionals are eager to resume their work. I have great confidence that our stylists &amp; other professionals will work hard to protect themselves &amp; their clients &amp; still provide the highest quality of service. Social Media
2020-05-05 21:42:27 Asa Hutchinson Arkansas I’ve extended our COVID public health &amp; disaster emergency for another 45days. Every industry sector in AR has been affected by the crisis. It’s important that we continue to support &amp; protect our industries &amp; people until the threat is no longer imminent. https://t.co/2aN22N0GwR Social Media
2020-05-07 21:52:10 Asa Hutchinson Arkansas (1/3) Today at my daily COVID update briefing, I announced that the state’s 3 gaming casinos will open at 1:30pm on May 18. The casinos will open at 1/3 capacity and will enforce strict social distancing. This is another industry that we are able to safely reopen during Phase 1. Social Media
2020-06-10 22:09:37 Asa Hutchinson Arkansas After consultation with my public health team, I announced that we will expand economic opportunity with public health guidelines and enter Phase Two of our economic recovery. (1/2) Social Media
2020-03-17 04:19:28 Gavin Newsom California Governor Gavin Newsom issued an executive order authorizing local governments to halt evictions for renters and homeowners, slows foreclosures, and protects against utility shutoffs for Californians affected by #COVID19. https://t.co/7iykh5l06n Social Media
2020-05-01 00:26:46 Gavin Newsom California Governor @GavinNewsom signed an executive order today that will allow adults to obtain marriage licenses via videoconferencing rather than in person amidst the #COVID19 pandemic. <U+0001F492><U+0001F935><U+0001F3FD><U+200D><U+2640><U+FE0F><U+0001F470><U+0001F3FF><U+0001F935><U+0001F3FB><U+200D><U+2642><U+FE0F> #CaliforniaForAll https://t.co/3YY7hTHISG Social Media
2020-05-01 17:04:46 Gavin Newsom California

CA is working towards a more equitable future for service workers.

@CALWDA &amp; @onefairwage have launched #highroadkitchens, a first-in-the-nation initiative to provide grants for restaurants that agree to reopen &amp; rehire employees at a livable wage. https://t.co/qFBq90DIo7
Social Media
2020-05-06 02:12:14 Gavin Newsom California

As CA begins the gradual move into Stage 2 on Friday, we know that industries must reopen in ways that continue to protect public health.

<U+0001F4FD><U+FE0F> Today, Governor @GavinNewsom met with business owners &amp; manufacturers to discuss reopening safely. #COVID19 https://t.co/OV7rDGQmGK
Social Media
2020-05-10 20:30:05 Gavin Newsom California #COVID19 has financially impacted Californians across the state. CA must begin to gradually reopen its economy &amp; put paychecks in people’s pockets.The state’s new industry guidance outlines the requirements for businesses to responsibly &amp; safely reopen: https://t.co/snYe5vmHg6 https://t.co/qNkWgBFAq3 Social Media
2020-05-20 02:30:01 Gavin Newsom California .@CAPublicHealth announced a new attestation opportunity for counties to reopen additional sectors of their economy at their own pace. Read more on the new criteria for counties to move faster into stage 2. <U+2B07><U+FE0F> https://t.co/Pp2gbbSI1w Social Media
2020-03-26 23:37:08 Doug Burgum North Dakota With ND’s primary election on the horizon, we’re looking out for the well-being of voters and poll workers. We issued an executive order waiving the requirement for a physical polling location if a county chooses to conduct voting by mail. Read the order: https://t.co/QEtT3C94LR Social Media
2020-04-07 00:05:42 Doug Burgum North Dakota To protect the most vulnerable and slow the spread, I also signed executive orders requiring self-quarantine for positive cases of COVID-19 &amp; their household members, as well as an executive order suspending visitation to long-term care facilities. https://t.co/YcaQeDyWiX Social Media
2020-04-15 22:58:35 Doug Burgum North Dakota Meanwhile, we will develop a path forward for a graduated reopening process past Apr. 30. We’re on the right track, but we are not far enough down that track to safely lift restrictions. We’ll continue to take a measured approach &amp; targeted actions to save lives and livelihoods. Social Media
2020-04-15 22:58:35 Doug Burgum North Dakota To continue to slow the spread of coronavirus and protect the health and safety of all North Dakotans including business owners, their employees and customers, we’re extending access restrictions on certain businesses by 10 days through April 30. https://t.co/IScFpOH7YI Social Media
2020-05-29 22:55:29 Doug Burgum North Dakota North Dakota is moving to the next phase of its #NDSmartRestart plan, as the state continues to see a high rate of testing per capita, a low positive test rate and adequate hospital capacity to handle potential COVID-19 case surges. Check out the details: https://t.co/aQgHuimXzv Social Media

Medical Care

Consequentialist %

Tweets/Statements

Date Person State Text Source
2020-03-22 00:00:00 President Donald Trump District of Columbia “Based on analysis of potential needs for hospital beds on the West Coast, the decision was made that the USNS hospital ship Mercy would have the greatest impact in California.” “Now, will [the medicine] work? I think it has a really good chance. I think it’s worthwhile. Why should we be testing it in a test tube for a year and a half when we have thousands of people that are very sick? They’re very, very sick. And we can use it on those people, and maybe make them better, and in some cases maybe saved their lives.” “We need to prioritize our healthcare workers [for testing, over undocumented people]” Official statements
2020-03-24 20:00:00 Asa Hutchinson Arkansas I issued Executive Order 20-05 to leverage telehealth in AR during the COVID-19 outbreak. A doctor can now establish a new patient over the phone. This will minimize the number of sick patients in waiting rooms, which will mitigate the spread of the virus. https://t.co/LrCcGWF3dE Social Media
2020-03-25 21:50:36 Asa Hutchinson Arkansas (2/4) In order to expand the number of available physicians and nurses, we have taken action. The AR State Medical Board granted emergency temporary licenses to AR medical residents who have completed at least 1 year of internship. These residents’ licensing fees will be waived. Social Media
2020-03-26 22:38:35 Asa Hutchinson Arkansas (1/4) Today I announced a $116M initiative that directly addresses the COVID-19 crisis &amp; the burden on our rural hospitals &amp; other health care providers. This proposal will provide improved access to care for citizens &amp; will keep providers open &amp; their workforce employed. Social Media
2020-03-27 21:58:05 Asa Hutchinson Arkansas (1/3) I have authorized 10 additional National Guard personnel to assist the AR Dept. of Health and Corps of Engineers in expanding the capacity of hospital beds in AR. This is to get ahead of the curve &amp; make sure we don’t have to make difficult choices down the road. Social Media
2020-04-03 00:15:36 Asa Hutchinson Arkansas @rockyblonde I understand your concern. We must consider the patient’s history in deciding whom to test. But for those whose symptoms worsen or linger, by all means, get tested. #AskGovHutchinson Social Media
2020-04-06 23:45:14 Asa Hutchinson Arkansas Thank you to @uamshealth and @ADHPIO for supporting my request to send five ventilators to Louisiana. I just spoke to @LouisianaGov, and he thanked the people of Arkansas. Social Media
2020-05-14 00:30:05 Gavin Newsom California Increasing testing capacity = Protecting public health Governor @GavinNewsom announced that pharmacists will be able to collect specimens for #COVID19 tests, order tests for consumers &amp; have them processed at public health, university or commercial labs. https://t.co/GoNlaV5OTT Social Media
2020-05-20 20:31:10 Gavin Newsom California “It’s not a blue state or a red state issue.” Governor @GavinNewsom joined @NewsHour to discuss the important role the federal government has in protecting public health and public safety across all states in the face of #COVID19. Social Media
2020-05-27 16:05:37 Gavin Newsom California Every vulnerable life at risk, every first responder striving to defend it &amp; every person who has put their faith in our collective safety are all counting on us to protect lives &amp; livelihoods. Federal support for states &amp; cities will help do just that. https://t.co/sm4gZNt32O Social Media
2020-03-21 00:33:26 Doug Burgum North Dakota By cutting red tape &amp; streamlining services, state government can better serve North Dakotans &amp; provide relief during this stressful time. Today I signed 3 executive orders addressing unemployment insurance, burdensome regulations &amp; expanding telehealth. https://t.co/Vik3yKk8Rk Social Media
2020-03-22 00:10:45 Doug Burgum North Dakota To expand the availability of COVID-19 testing, I signed an executive order authorizing licensed pharmacists to administer tests in collaboration with @NDDOH. It also streamlines the process for essential prescription medication refills during this crisis. Social Media
2020-04-09 23:14:19 Doug Burgum North Dakota Just had a great call with our friend and neighbor, Minnesota @GovTimWalz, and we agree: There’s no “us and them,” only “we.” Our states share a river, communities and health care systems, and we’ll continue to work together in the fight against COVID-19. (1/2) Social Media
2020-03-25 16:27:09 Doug Ducey Arizona Access to health care is crucial at a time like this. I’m issuing an Executive Order requiring health care insurance companies to expand telemedicine coverage for all services that would normally be covered for an in-person visit. MORE: https://t.co/QXLooIbyyO #COVID19 1/ Social Media
2020-03-26 20:25:17 Doug Ducey Arizona Many Arizona professionals continue to work, while following the guidance of public health. And we are working to make sure licensed professionals can work w/out needing to meet impractical licensing requirements. See my new Executive Order here: https://t.co/D6mAFTThzg #COVID19 Social Media

Contact Tracing

Consequentialist %

Tweets/Statements

Date Person State Text Source
2020-06-13 01:30:02 Gavin Newsom California El rastreo de contactos es una forma simple y anónima de hacer tu parte. Entre más rápido pueda comunicarse contigo el departamento de salud, más rápido te podrá brindar apoyo y hacer la prueba. Juntos podemos reducir la propagación del #COVID19. Social Media
2020-06-22 23:00:00 Gavin Newsom California Contact tracing can help #SlowtheSpread of #COVID19 in your community. <U+0001F4C9> If you test positive, your local health department can connect you with confidential medical treatment regardless of medical or immigration status. #YourActionsSaveLives Social Media
2020-03-23 21:02:56 Doug Ducey Arizona

#COVID19

Today, I’m issuing an Executive Order for enhanced surveillance, requiring commercial labs to provide laboratory specimens for in-depth analysis and sequencing. Commercial labs will also provide denominator data on their testing. 1/ https://t.co/4Ouz66WXgx
Social Media

Vaccine Enforcement

Consequentialist %

Tweets/Statements

Date Person State Text Source

PPE

Consequentialist %

Tweets/Statements

Date Person State Text Source

Other

Consequentialist %

Tweets/Statements

Date Person State Text Source
2020-03-20 21:54:00 Asa Hutchinson Arkansas (3/5) We are canceling the ACT Aspire &amp; other yearly assessments for this spring under the waiver announced earlier today by the Trump administration &amp; Secretary DeVos. This will allow educators to focus on providing the best education possible to students during this outbreak. Social Media
2020-03-21 00:10:00 Asa Hutchinson Arkansas According to the CDC, the best way to prevent the spread of COVID-19 is to avoid being exposed to the virus. COVID-19 is thought to spread between people within 6 feet of each other. By practicing social distancing, we can help mitigate the outbreak in our state. Social Media
2020-03-21 20:02:36 Asa Hutchinson Arkansas Social distancing does not have to mean staying in the home, although this is an effective way to mitigate the spread of COVID-19. Walking, hiking, fishing, and other outdoor activities are all consistent with social distancing practices. Social Media
2020-03-22 20:00:00 Asa Hutchinson Arkansas As COVID-19 spreads, it is important for Arkansans to follow the CDC’s guidelines to keep themselves and their families safe. I encourage the people of our state to practice the CDC’s current recommendation to avoid social gatherings of 10+ to help mitigate the virus. Social Media
2020-05-20 20:31:10 Gavin Newsom California “It’s not a blue state or a red state issue.” Governor @GavinNewsom joined @NewsHour to discuss the important role the federal government has in protecting public health and public safety across all states in the face of #COVID19. Social Media
2020-05-27 16:05:37 Gavin Newsom California Every vulnerable life at risk, every first responder striving to defend it &amp; every person who has put their faith in our collective safety are all counting on us to protect lives &amp; livelihoods. Federal support for states &amp; cities will help do just that. https://t.co/sm4gZNt32O Social Media
2020-03-21 00:33:26 Doug Burgum North Dakota By cutting red tape &amp; streamlining services, state government can better serve North Dakotans &amp; provide relief during this stressful time. Today I signed 3 executive orders addressing unemployment insurance, burdensome regulations &amp; expanding telehealth. https://t.co/Vik3yKk8Rk Social Media
2020-03-22 00:10:45 Doug Burgum North Dakota To expand the availability of COVID-19 testing, I signed an executive order authorizing licensed pharmacists to administer tests in collaboration with @NDDOH. It also streamlines the process for essential prescription medication refills during this crisis. Social Media
2020-03-26 23:37:08 Doug Burgum North Dakota With ND’s primary election on the horizon, we’re looking out for the well-being of voters and poll workers. We issued an executive order waiving the requirement for a physical polling location if a county chooses to conduct voting by mail. Read the order: https://t.co/QEtT3C94LR Social Media
2020-04-01 23:25:36 Doug Burgum North Dakota Today, I signed an executive order waiving the mandatory 1-week waiting period for unemployment benefits as claims continue to increase. This is critical to helping out-of-work North Dakotans who are struggling to make ends meet during the COVID-19 crisis. https://t.co/rccbC7I7lw Social Media
2020-04-07 00:05:42 Doug Burgum North Dakota To protect the most vulnerable and slow the spread, I also signed executive orders requiring self-quarantine for positive cases of COVID-19 &amp; their household members, as well as an executive order suspending visitation to long-term care facilities. https://t.co/YcaQeDyWiX Social Media
2020-03-23 21:02:56 Doug Ducey Arizona

#COVID19

Today, I’m issuing an Executive Order for enhanced surveillance, requiring commercial labs to provide laboratory specimens for in-depth analysis and sequencing. Commercial labs will also provide denominator data on their testing. 1/ https://t.co/4Ouz66WXgx
Social Media
2020-03-25 16:27:09 Doug Ducey Arizona Access to health care is crucial at a time like this. I’m issuing an Executive Order requiring health care insurance companies to expand telemedicine coverage for all services that would normally be covered for an in-person visit. MORE: https://t.co/QXLooIbyyO #COVID19 1/ Social Media
2020-03-26 20:25:17 Doug Ducey Arizona Many Arizona professionals continue to work, while following the guidance of public health. And we are working to make sure licensed professionals can work w/out needing to meet impractical licensing requirements. See my new Executive Order here: https://t.co/D6mAFTThzg #COVID19 Social Media
2020-03-26 20:59:33 Doug Ducey Arizona Arizona is waiving emissions testing for those 65 and older to help encourage social distancing and protect the health of our seniors. More information: https://t.co/o8Fka2AvxG #COVID19 @ArizonaDEQ Social Media

Wordcloud

Column

Lockdown vs Economy

Consequentialist %

Deontological %

Medical Care

Consequentialist %

Deontological %

Date Person State Text Source
2020-03-22 00:00:00 President Donald Trump District of Columbia “Based on analysis of potential needs for hospital beds on the West Coast, the decision was made that the USNS hospital ship Mercy would have the greatest impact in California.” “Now, will [the medicine] work? I think it has a really good chance. I think it’s worthwhile. Why should we be testing it in a test tube for a year and a half when we have thousands of people that are very sick? They’re very, very sick. And we can use it on those people, and maybe make them better, and in some cases maybe saved their lives.” “We need to prioritize our healthcare workers [for testing, over undocumented people]” Official statements
2020-03-24 20:00:00 Asa Hutchinson Arkansas I issued Executive Order 20-05 to leverage telehealth in AR during the COVID-19 outbreak. A doctor can now establish a new patient over the phone. This will minimize the number of sick patients in waiting rooms, which will mitigate the spread of the virus. https://t.co/LrCcGWF3dE Social Media
2020-03-25 21:50:36 Asa Hutchinson Arkansas (2/4) In order to expand the number of available physicians and nurses, we have taken action. The AR State Medical Board granted emergency temporary licenses to AR medical residents who have completed at least 1 year of internship. These residents’ licensing fees will be waived. Social Media
2020-03-26 22:38:35 Asa Hutchinson Arkansas (1/4) Today I announced a $116M initiative that directly addresses the COVID-19 crisis &amp; the burden on our rural hospitals &amp; other health care providers. This proposal will provide improved access to care for citizens &amp; will keep providers open &amp; their workforce employed. Social Media
2020-03-27 21:58:05 Asa Hutchinson Arkansas (1/3) I have authorized 10 additional National Guard personnel to assist the AR Dept. of Health and Corps of Engineers in expanding the capacity of hospital beds in AR. This is to get ahead of the curve &amp; make sure we don’t have to make difficult choices down the road. Social Media
2020-04-03 00:15:36 Asa Hutchinson Arkansas @rockyblonde I understand your concern. We must consider the patient’s history in deciding whom to test. But for those whose symptoms worsen or linger, by all means, get tested. #AskGovHutchinson Social Media
2020-04-06 23:45:14 Asa Hutchinson Arkansas Thank you to @uamshealth and @ADHPIO for supporting my request to send five ventilators to Louisiana. I just spoke to @LouisianaGov, and he thanked the people of Arkansas. Social Media
2020-05-14 00:30:05 Gavin Newsom California Increasing testing capacity = Protecting public health Governor @GavinNewsom announced that pharmacists will be able to collect specimens for #COVID19 tests, order tests for consumers &amp; have them processed at public health, university or commercial labs. https://t.co/GoNlaV5OTT Social Media
2020-05-20 20:31:10 Gavin Newsom California “It’s not a blue state or a red state issue.” Governor @GavinNewsom joined @NewsHour to discuss the important role the federal government has in protecting public health and public safety across all states in the face of #COVID19. Social Media
2020-05-27 16:05:37 Gavin Newsom California Every vulnerable life at risk, every first responder striving to defend it &amp; every person who has put their faith in our collective safety are all counting on us to protect lives &amp; livelihoods. Federal support for states &amp; cities will help do just that. https://t.co/sm4gZNt32O Social Media
2020-03-21 00:33:26 Doug Burgum North Dakota By cutting red tape &amp; streamlining services, state government can better serve North Dakotans &amp; provide relief during this stressful time. Today I signed 3 executive orders addressing unemployment insurance, burdensome regulations &amp; expanding telehealth. https://t.co/Vik3yKk8Rk Social Media
2020-03-22 00:10:45 Doug Burgum North Dakota To expand the availability of COVID-19 testing, I signed an executive order authorizing licensed pharmacists to administer tests in collaboration with @NDDOH. It also streamlines the process for essential prescription medication refills during this crisis. Social Media
2020-04-09 23:14:19 Doug Burgum North Dakota Just had a great call with our friend and neighbor, Minnesota @GovTimWalz, and we agree: There’s no “us and them,” only “we.” Our states share a river, communities and health care systems, and we’ll continue to work together in the fight against COVID-19. (1/2) Social Media
2020-03-25 16:27:09 Doug Ducey Arizona Access to health care is crucial at a time like this. I’m issuing an Executive Order requiring health care insurance companies to expand telemedicine coverage for all services that would normally be covered for an in-person visit. MORE: https://t.co/QXLooIbyyO #COVID19 1/ Social Media
2020-03-26 20:25:17 Doug Ducey Arizona Many Arizona professionals continue to work, while following the guidance of public health. And we are working to make sure licensed professionals can work w/out needing to meet impractical licensing requirements. See my new Executive Order here: https://t.co/D6mAFTThzg #COVID19 Social Media

Contact Tracing

Consequentialist %

Deontological %

Date Person State Text Source
2020-06-13 01:30:02 Gavin Newsom California El rastreo de contactos es una forma simple y anónima de hacer tu parte. Entre más rápido pueda comunicarse contigo el departamento de salud, más rápido te podrá brindar apoyo y hacer la prueba. Juntos podemos reducir la propagación del #COVID19. Social Media
2020-06-22 23:00:00 Gavin Newsom California Contact tracing can help #SlowtheSpread of #COVID19 in your community. <U+0001F4C9> If you test positive, your local health department can connect you with confidential medical treatment regardless of medical or immigration status. #YourActionsSaveLives Social Media
2020-03-23 21:02:56 Doug Ducey Arizona

#COVID19

Today, I’m issuing an Executive Order for enhanced surveillance, requiring commercial labs to provide laboratory specimens for in-depth analysis and sequencing. Commercial labs will also provide denominator data on their testing. 1/ https://t.co/4Ouz66WXgx
Social Media

Vaccine Enforcement

Consequentialist %

Deontological %

Date Person State Text Source

PPE

Consequentialist

Deontological

Date Person State Text Source

Other

Consequentialist %

Deontological %

Date Person State Text Source
2020-03-20 21:54:00 Asa Hutchinson Arkansas (3/5) We are canceling the ACT Aspire &amp; other yearly assessments for this spring under the waiver announced earlier today by the Trump administration &amp; Secretary DeVos. This will allow educators to focus on providing the best education possible to students during this outbreak. Social Media
2020-03-21 00:10:00 Asa Hutchinson Arkansas According to the CDC, the best way to prevent the spread of COVID-19 is to avoid being exposed to the virus. COVID-19 is thought to spread between people within 6 feet of each other. By practicing social distancing, we can help mitigate the outbreak in our state. Social Media
2020-03-21 20:02:36 Asa Hutchinson Arkansas Social distancing does not have to mean staying in the home, although this is an effective way to mitigate the spread of COVID-19. Walking, hiking, fishing, and other outdoor activities are all consistent with social distancing practices. Social Media
2020-03-22 20:00:00 Asa Hutchinson Arkansas As COVID-19 spreads, it is important for Arkansans to follow the CDC’s guidelines to keep themselves and their families safe. I encourage the people of our state to practice the CDC’s current recommendation to avoid social gatherings of 10+ to help mitigate the virus. Social Media
2020-05-20 20:31:10 Gavin Newsom California “It’s not a blue state or a red state issue.” Governor @GavinNewsom joined @NewsHour to discuss the important role the federal government has in protecting public health and public safety across all states in the face of #COVID19. Social Media
2020-05-27 16:05:37 Gavin Newsom California Every vulnerable life at risk, every first responder striving to defend it &amp; every person who has put their faith in our collective safety are all counting on us to protect lives &amp; livelihoods. Federal support for states &amp; cities will help do just that. https://t.co/sm4gZNt32O Social Media
2020-03-21 00:33:26 Doug Burgum North Dakota By cutting red tape &amp; streamlining services, state government can better serve North Dakotans &amp; provide relief during this stressful time. Today I signed 3 executive orders addressing unemployment insurance, burdensome regulations &amp; expanding telehealth. https://t.co/Vik3yKk8Rk Social Media
2020-03-22 00:10:45 Doug Burgum North Dakota To expand the availability of COVID-19 testing, I signed an executive order authorizing licensed pharmacists to administer tests in collaboration with @NDDOH. It also streamlines the process for essential prescription medication refills during this crisis. Social Media
2020-03-26 23:37:08 Doug Burgum North Dakota With ND’s primary election on the horizon, we’re looking out for the well-being of voters and poll workers. We issued an executive order waiving the requirement for a physical polling location if a county chooses to conduct voting by mail. Read the order: https://t.co/QEtT3C94LR Social Media
2020-04-01 23:25:36 Doug Burgum North Dakota Today, I signed an executive order waiving the mandatory 1-week waiting period for unemployment benefits as claims continue to increase. This is critical to helping out-of-work North Dakotans who are struggling to make ends meet during the COVID-19 crisis. https://t.co/rccbC7I7lw Social Media
2020-04-07 00:05:42 Doug Burgum North Dakota To protect the most vulnerable and slow the spread, I also signed executive orders requiring self-quarantine for positive cases of COVID-19 &amp; their household members, as well as an executive order suspending visitation to long-term care facilities. https://t.co/YcaQeDyWiX Social Media
2020-03-23 21:02:56 Doug Ducey Arizona

#COVID19

Today, I’m issuing an Executive Order for enhanced surveillance, requiring commercial labs to provide laboratory specimens for in-depth analysis and sequencing. Commercial labs will also provide denominator data on their testing. 1/ https://t.co/4Ouz66WXgx
Social Media
2020-03-25 16:27:09 Doug Ducey Arizona Access to health care is crucial at a time like this. I’m issuing an Executive Order requiring health care insurance companies to expand telemedicine coverage for all services that would normally be covered for an in-person visit. MORE: https://t.co/QXLooIbyyO #COVID19 1/ Social Media
2020-03-26 20:25:17 Doug Ducey Arizona Many Arizona professionals continue to work, while following the guidance of public health. And we are working to make sure licensed professionals can work w/out needing to meet impractical licensing requirements. See my new Executive Order here: https://t.co/D6mAFTThzg #COVID19 Social Media
2020-03-26 20:59:33 Doug Ducey Arizona Arizona is waiving emissions testing for those 65 and older to help encourage social distancing and protect the health of our seniors. More information: https://t.co/o8Fka2AvxG #COVID19 @ArizonaDEQ Social Media

Lollipop

---
title: "COVID-Messaging Dashboard"
date: "2020-07"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    source_code: embed
    vertical_layout: fill
    theme: "spacelab"
---

```{r setup, include=FALSE}
library(plyr) 
library(leaflet)
library(leafpop)
library(purrr)
library(plotly)
library(sf)
library(cartogram)
library(scales)
library(sjmisc)
library(shiny)
library(albersusa)
library(highcharter)
library(dplyr)
library(viridisLite)
library(forecast)
library(treemap)
library(flexdashboard)
library(kableExtra)

library(rtweet)        # Used for extracting the tweets
library(tm)            # Text mining cleaning
library(stringr)       # Removing characters
library(qdapRegex)     # Removing URLs 
library(wordcloud2) 
library(wordcloud)
`%>%` <- dplyr::`%>%`

data("usgeojson")

# Load plotting data
load("~/Dropbox (Yale_FES)/YPCCC_19XW/Crockett/Prototype/R_Dashboard/keystate.Rda")
load("~/Dropbox (Yale_FES)/YPCCC_19XW/Crockett/Prototype/R_Dashboard/plot_data.rda")

tweet.counts <- read.csv('~/Dropbox (Yale_FES)/YPCCC_19XW/Crockett/Prototype/Raw_Data/tweets_counts.csv')
st.tweets <- tweet.counts[!duplicated(tweet.counts$state),]
names(st.tweets)[names(st.tweets)=='name'] <- 'name.governor'
st.tweets <- st.tweets %>% 
  filter(state %in% c("Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", 
"Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho", 
"Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", 
"Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota", 
"Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire", 
"New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota", 
"Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", 
"South Carolina", "South Dakota", "Tennessee", "Texas", "Utah", 
"Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", 
"Wyoming")) %>% 
  select(state, party, name.governor, n)

```


Classifed Tweets Display
=======================================================================


Column {.tabset}
-----------------------------------------------------------------------

### Lockdown vs Economy

#### Deontological %

```{r}
# thm <- 
#   hc_theme(
#     chart = list(
#       backgroundColor = "transparent",
#       style = list(fontFamily = "Source Sans Pro")
#     ),
#     xAxis = list(
#       gridLineWidth = 1)
#     )

# Map tweets volumn
# highchart() %>%
#   hc_add_series_map(usgeojson, st.tweets, name = "State",
#                     value = "n", joinBy = c("woename", "state"),
#                     dataLabels = list(enabled = TRUE,
#                                       format = '{point.properties.postalcode}')) %>%
#   # hc_colorAxis(stops = colstops) %>%
#   hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
#   hc_mapNavigation(enabled = TRUE) %>%
#   hc_add_theme(thm)


n <- 5
stops1 <- data.frame(q = 0:n/n,
                    c = brewer_pal(palette = "Greens")(6),
                    stringsAsFactors = FALSE)
util.stops <- list_parse2(stops1)

stops2 <- data.frame(q = 0:n/n,
                    c = brewer_pal(palette = "Purples")(6),
                    stringsAsFactors = FALSE)
deon.stops <- list_parse2(stops2)

s.plot <- s.state %>% 
  filter(variable=="lockdown vs. opening the economy")
  
highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
                    value = "deon.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements 

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  deon_text, format,  `lockdown vs. opening the economy`) %>%
  filter(!is.na(deon_text)) %>% 
  filter(`lockdown vs. opening the economy` == "D") %>% 
  select(-`lockdown vs. opening the economy`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'deon_text')

 kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```

### Medical Care

#### Deontological %

```{r}

s.plot <- s.state %>% 
  filter(variable=="rationing medical care")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
                    value = "deon.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  deon_text, format,  `rationing medical care`) %>%
  filter(!is.na(deon_text)) %>% 
  filter(`rationing medical care` == "D") %>% 
  select(-`rationing medical care`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'deon_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### Contact Tracing

#### Deontological %

```{r}

s.plot <- s.state %>% 
  filter(variable=="contact tracing & surveillance")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
                    value = "deon.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  deon_text, format,  `contact tracing & surveillance`) %>%
  filter(!is.na(deon_text)) %>% 
  filter(`contact tracing & surveillance` == "D") %>% 
  select(-`contact tracing & surveillance`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'deon_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### Vaccine Enforcement

#### Deontological %

```{r}

s.plot <- s.state %>% 
  filter(variable=="vaccine enforcement")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
                    value = "deon.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  deon_text, format,  `vaccine enforcement`) %>%
  filter(!is.na(deon_text)) %>% 
  filter(`vaccine enforcement` == "D") %>% 
  select(-`vaccine enforcement`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'deon_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### PPE

#### Deontological %

```{r}

s.plot <- s.state %>% 
  filter(variable=="PPE/Healthcare allocation")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
                    value = "deon.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  deon_text, format,  `PPE/Healthcare allocation`) %>%
  filter(!is.na(deon_text)) %>% 
  filter(`PPE/Healthcare allocation` == "D") %>% 
  select(-`PPE/Healthcare allocation`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'deon_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```

### Other

#### Deontological %

```{r}

s.plot <- s.state %>% 
  filter(variable=="Other")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Deontological %",
                    value = "deon.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#6a51a3", stops = deon.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  deon_text, format,  `Other`) %>%
  filter(!is.na(deon_text)) %>% 
  filter(`Other` == "D") %>% 
  select(-`Other`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'deon_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```



Column {.tabset}
-----------------------------------------------------------------------

### Lockdown vs Economy

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="lockdown vs. opening the economy")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format, `lockdown vs. opening the economy`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`lockdown vs. opening the economy` == "U") %>% 
  select(-`lockdown vs. opening the economy`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```

### Medical Care

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="rationing medical care")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `rationing medical care`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`rationing medical care` == "U") %>% 
  select(-`rationing medical care`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### Contact Tracing

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="contact tracing & surveillance")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `contact tracing & surveillance`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`contact tracing & surveillance` == "U") %>% 
  select(-`contact tracing & surveillance`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### Vaccine Enforcement

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="vaccine enforcement")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `vaccine enforcement`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`vaccine enforcement` == "U") %>% 
  select(-`vaccine enforcement`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### PPE

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="PPE/Healthcare allocation")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `PPE/Healthcare allocation`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`PPE/Healthcare allocation` == "U") %>% 
  select(-`PPE/Healthcare allocation`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```

### Other

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="Other")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Tweets/Statements

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `Other`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`Other` == "U") %>% 
  select(-`Other`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling("striped") %>%
  scroll_box(width='550px')

```





```{r}

# https://juliasilge.com/blog/tidy-text-classification/
  
```


Wordcloud
=======================================================================

Column {.tabset}
-----------------------------------------------------------------------

### Lockdown vs Economy

#### Consequentialist %

```{r results='asis'}
# devtools::install_github("gaospecial/wordcloud2")
library(wordcloud2)

df.text1 <- df %>% 
  select(date, source_person, State_name,  util_text, format, `lockdown vs. opening the economy`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`lockdown vs. opening the economy` == "U") 

df.text <- df.text1$util_text
df.text <- str_c(df.text, collapse = "")

df.text <-
  df.text %>%
  str_remove("\\n") %>%                   # remove linebreaks
  rm_twitter_url() %>%                    # Remove URLS
  rm_url() %>%
  str_remove_all("#\\S+") %>%             # Remove any hashtags
  str_remove_all("@\\S+") %>%             # Remove any @ mentions
  removeWords(stopwords("english")) %>%   # Remove common words (a, the, it etc.)
  removeNumbers() %>%
  stripWhitespace() %>%
  removeWords(c("amp"))                   # Final cleanup of other small changes

textCorpus <-
  Corpus(VectorSource(df.text)) %>%
  TermDocumentMatrix() %>%
  as.matrix()

textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)

wordcloud2(data = textCorpus, minRotation = 0, maxRotation = 0, ellipticity = 0.6, shape = "circle", color = rep_len(brewer.pal(9, "Greens"), nrow(textCorpus)))

```


#### Deontological %

```{r}
df.text1 <- df %>% 
  select(date, source_person, State_name,  deon_text, format, `lockdown vs. opening the economy`) %>%
  filter(!is.na(deon_text)) %>% 
  filter(`lockdown vs. opening the economy` == "D") 

df.text <- df.text1$deon_text
df.text <- str_c(df.text, collapse = "")

df.text <-
  df.text %>%
  str_remove("\\n") %>%                   # remove linebreaks
  rm_twitter_url() %>%                    # Remove URLS
  rm_url() %>%
  str_remove_all("#\\S+") %>%             # Remove any hashtags
  str_remove_all("@\\S+") %>%             # Remove any @ mentions
  removeWords(stopwords("english")) %>%   # Remove common words (a, the, it etc.)
  removeNumbers() %>%
  stripWhitespace() %>%
  removeWords(c("amp"))                   # Final cleanup of other small changes

textCorpus <-
  Corpus(VectorSource(df.text)) %>%
  TermDocumentMatrix() %>%
  as.matrix()

textCorpus <- sort(rowSums(textCorpus), decreasing=TRUE)
textCorpus <- data.frame(word = names(textCorpus), freq=textCorpus, row.names = NULL)

wordcloud2(data = textCorpus, minRotation = 0, maxRotation = 0, ellipticity = 0.6, shape = "circle", color = rep_len(brewer.pal(9, "Purples"), nrow(textCorpus)))

```

### Medical Care

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="rationing medical care")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Deontological %

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `rationing medical care`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`rationing medical care` == "U") %>% 
  select(-`rationing medical care`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### Contact Tracing

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="contact tracing & surveillance")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Deontological %

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `contact tracing & surveillance`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`contact tracing & surveillance` == "U") %>% 
  select(-`contact tracing & surveillance`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### Vaccine Enforcement

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="vaccine enforcement")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Deontological %

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `vaccine enforcement`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`vaccine enforcement` == "U") %>% 
  select(-`vaccine enforcement`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```


### PPE

#### Consequentialist 

```{r}

s.plot <- s.state %>% 
  filter(variable=="PPE/Healthcare allocation")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Deontological

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `PPE/Healthcare allocation`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`PPE/Healthcare allocation` == "U") %>% 
  select(-`PPE/Healthcare allocation`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling() %>%
  scroll_box(width='550px')

```

### Other

#### Consequentialist %

```{r}

s.plot <- s.state %>% 
  filter(variable=="Other")

highchart() %>%
  hc_add_series_map(usgeojson, s.plot, name = "Consequentialist %",
                    value = "util.pct", joinBy = c("woename", "State_name"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>%
  hc_colorAxis(minColor="#ffffff", maxColor="#238b45", stops = util.stops, min=0, max=100) %>%
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) %>%
  hc_add_theme(hc_theme_smpl())

```


#### Deontological %

```{r}
df.display <- df %>%
  select(date, source_person, State_name,  util_text, format,  `Other`) %>%
  filter(!is.na(util_text)) %>% 
  filter(`Other` == "U") %>% 
  select(-`Other`) %>% 
  rename('Date' = 'date', 'Person' = 'source_person',
         'State' = 'State_name', 'Source' = 'format',
         'Text' = 'util_text')

kable(df.display) %>%
  kable_styling("striped") %>%
  scroll_box(width='550px')

```
























































































































Lollipop
=======================================================================

```{r, fig.width=12, fig.height=8}
library(ggplot2)
library(dplyr)
library(hrbrthemes)


ggplot(s.state) +
  geom_segment( aes(x=variable, xend=variable, y=deon.pct, yend=util.pct), color="grey") +
  geom_point( aes(x=variable, y=deon.pct), color="#d6604d", size=3 ) +
  geom_point( aes(x=variable, y=util.pct), color="#5aae61", size=3 ) +
  theme_ipsum() +
  facet_wrap(~State_name, nrow = 3)+
  coord_flip()+ 
  xlab("") +
  ylab("Red - deontological % | Green - consequentialist %") +
  theme(legend.position = "none", axis.text = element_text(size=12), strip.text = element_text(size=15))


```